home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / education / pe038.dms / pe038.adf / autoexec.Bak / autoexec.amosSourceCode next >
AMOS Source Code  |  1991-10-21  |  10KB  |  309 lines
  1. Screen Open 0,320,200,16,Lowres
  2. Set Sprite Buffer 16
  3. Break On 
  4. Curs Off : Cls 0 : Flash Off : Hide 
  5. MUS_OK=0
  6. Global PAWS,BIG_FNT,WEE_FNT1,WEE_FNT2
  7. PAWS=2
  8. Get Disc Fonts 
  9. PASS=0 : BIG_FNT=0 : WEE_FNT1=0 : WEE_FNT2=0
  10. For X=1 To 20
  11.    If(Lower$(Mid$(Font$(X),1,14))="helvetica.font") and Val(Mid$(Font$(X),30,4))=18 Then BIG_FNT=X
  12.    If(Lower$(Mid$(Font$(X),1,12))="diamond.font") and Val(Mid$(Font$(X),30,4))=12 Then WEE_FNT1=X
  13.    If(Lower$(Mid$(Font$(X),1,9))="ruby.font") and Val(Mid$(Font$(X),30,4))=12 Then WEE_FNT2=X
  14. Next X
  15. SLSCR
  16. SCR_1
  17. SCR_2
  18. LDSCR
  19. MUS_OK=0
  20. LS_ERR:
  21. Curs Off : Locate 2,24 : Print "Cannot load screen [";Errn;"] - press any key "; : Clear Key : Wait Key 
  22. Locate 2,24 : Print Space$(29);
  23. Procedure GUIDE
  24. Screen Open 0,640,200,4,Hires
  25. Palette $F,$FF0,$FFF,$F00
  26. PG1:
  27. Paper 0 : Pen 2 : Cls 
  28. Print : Centre "HENRIETTA's BOOK of SPELLS DEMO DISC - USER GUIDE"
  29. Print : Centre "=================================================" : Print 
  30. Print "    The purpose of this disc is to give you a flavour of HENRIETTA's BOOK"
  31. Print "    of SPELLS without having to go to the expense of buying the full pack."
  32. Print "    The DEMO is a restricted version of the full program, but it has been"
  33. Print "    set up to allow you to examine the features which make it such a"
  34. Print "    powerful educational tool."
  35. Print 
  36. Print "    A 12 page colour manual is provided with the full pack which"
  37. Print "    explains in detail how to get the best from the program, but for the"
  38. Print "    purposes of this DEMO the following should help:"
  39. Print 
  40. Print "       We recommend you study the Parent/Teacher section.  This is where,"
  41. Print "       in the full version, you configure the program to suit a child's"
  42. Print "       abilities, or examine the results of earlier sessions."
  43. Print 
  44. Print "       Pressing <Esc> will let you leave any section of the program."
  45. Print 
  46. Print "       To quit the program go to the Control Screen and press <SHIFT-Q>"
  47. Print 
  48. Print "    Feel free to browse through the program and the Parent/Teacher section."
  49. Print "    Don't be afraid to experiment."
  50. Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
  51. Print "Press <Esc> to quit.";
  52. Clear Key : K=0
  53. Repeat 
  54.   K$=Inkey$
  55.   K=Mouse Click
  56. Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
  57. If K$=Chr$(27) Then Pop Proc
  58. If K=1 Then Goto PG4
  59. PG2:
  60. Paper 0 : Pen 2 : Cls 
  61. Print "  What the press says about HENRIETTA's BOOK of SPELLS"
  62. Print "  ===================================================="
  63. Print : Print 
  64. Print "    'The graphics add tremendously to a child's enjoyment without"
  65. Print "     slowing the gameplay down.  A very good package - highly recommended.'"
  66. Print "    Atari ST User September 1991"
  67. Print 
  68. Print "    'This program is great fun and has great potential for work in"
  69. Print "     any language because of its flexibility ... I thoroughly"
  70. Print "     recommend it."
  71. Print "    Times Educational Supplement September 1990"
  72. Print 
  73. Print "    'A fine set of word games ... Guaranteed to improve the wordskills"
  74. Print "     of even the most word-shy child.'"
  75. Print "    Sinclair User May 1991"
  76. Print 
  77. Print "    'I found it to be a really enjoyable way for young brains to be"
  78. Print "     tested.'"
  79. Print "    Amiga Computimg October 1991"
  80. Print 
  81. Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
  82. Print "Press <Esc> to quit.";
  83. Clear Key : K=0
  84. Repeat 
  85.   K$=Inkey$
  86.   K=Mouse Click
  87. Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
  88. If K$=Chr$(27) Then Pop Proc
  89. If K=1 Then Goto PG1
  90. PG3:
  91. Paper 0 : Pen 2 : Cls 
  92. Print "                      DEMO DISCS - Conditions of Licence"
  93. Print "                      =================================="
  94. Print "    You can make as many copies of your HENRIETTA's BOOK of SPELLS DEMO"
  95. Print "    DISC as you wish and give or sell them to others.  The following"
  96. Print "    conditions shall apply."
  97. Print 
  98. Print "    We, Scetlander Limited retain proprietary rights in the content of all"
  99. Print "    discs/cassettes ('the Software') and its documentation which is"
  100. Print "    licensed to you on the following conditions:"
  101. Print 
  102. Print "    1  Use of this Software (or a copy thereof) by you or any other party"
  103. Print "       confirms acceptance of these Conditions."
  104. Print "    2  You are permitted to make any number of copies of the Software and"
  105. Print "       also to store the Software on a hard disc if you have one."
  106. Print "    3  You may use the Software (or any copy thereof) for public library,"
  107. Print "       club or commercial purposes."
  108. Print "    4  Alterations to and versions of the Software (or any copy thereof)"
  109. Print "       and/or its documentation may not be made without our prior, written "
  110. Print "       consent."
  111. Print "    5  You may only lend or dispose of the Software (or any copy thereof)"
  112. Print "       with its documentation to another party only if that party agrees"
  113. Print "       to be bound by these Conditions."
  114. Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
  115. Print "Press <Esc> to quit.";
  116. Clear Key : K=0
  117. Repeat 
  118.   K$=Inkey$
  119.   K=Mouse Click
  120. Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
  121. If K$=Chr$(27) Then Pop Proc
  122. If K=1 Then Goto PG2
  123. PG4:
  124. Paper 0 : Pen 2 : Cls 
  125. Print : Print 
  126. Print "    All rights reserved.  Except as specified above, no part of the"
  127. Print "    Software or its documentation may be reproduced, stored on a retrieval"
  128. Print "    system or transmitted in any form or by any means, electronic,"
  129. Print "    mechanical, photocopying, recording or otherwise without our prior"
  130. Print "    written permission."
  131. Print 
  132. Print "    If you are in any doubt whatsoever regarding these Conditions, please"
  133. Print "    contact us for advice since a breach could result in a criminal as"
  134. Print "    well as a civil offence being committed."
  135. Print 
  136. Centre "Published by:"
  137. Print : Centre "Scetlander Limited"
  138. Print : Centre "74 Victoria Crescent Road, Glasgow G12 9JN, UK"
  139. Print : Centre "Tel:  +44 (0)41-357 1659  Fax:  +44 (0)41-357 5034"
  140. Print : Centre "A subsidiary of Scotlander plc"
  141. Print : Print : Print : Print : Print : Print 
  142. Print : Pen 1 : Curs Off : Print "Left mouse button for previous page. Right mouse button for next page."
  143. Print "Press <Esc> to quit.";
  144. Clear Key : K=0
  145. Repeat 
  146.   K$=Inkey$
  147.   K=Mouse Click
  148. Until(K$=Chr$(27)) or(K$=" ") or(K=1) or(K=2)
  149. If K$=Chr$(27) Then Pop Proc
  150. If K=1 Then Goto PG3
  151. Goto PG1
  152. End Proc
  153. Procedure SCR_1
  154. Get Disc Fonts 
  155. Screen Open 0,320,200,16,Lowres
  156. Palette 0,$0,$FFF,$AAA,$F00,$F0,$FF0,$F,$FF0,$F,$F0,$0,$0,$0,$0,$0
  157. Paper 7 : Cls 7
  158. Set Font BIG_FNT
  159. Set Text BOLD
  160. Ink 2,7
  161. Box 0,0 To 319,199
  162. Bar 0,32 To 319,36
  163. Bar 0,38 To 319,42
  164. Ink 2
  165. Text 80,25,"DEMO  DISC"
  166. Set Font WEE_FNT1
  167. TMP$="Welcome to this DEMO DISC of"
  168. Text 10,55,TMP$
  169. Ink 4
  170. Text 9,68,"HENRIETTA's BOOK of SPELLS"
  171. Ink 2
  172. Text 233,68,"and to"
  173. Text 9,81,"the world of computer assisted"
  174. Text 9,94,"learning.  For details on how to get"
  175. Text 8,107,"the best from this demo read the"
  176. Text 9,120,"Guide on this disc."
  177. Ink 5
  178. Text 40,160,"Press <Space> to continue, or"
  179. Text 40,173,"press <F1> to read the Guide."
  180. Ink 2
  181. Text 20,190,"Press <Shift-Q> to leave the demo."
  182. Clear Key 
  183. ME=0
  184. Repeat 
  185.    BB$=Inkey$
  186.    S=Scancode
  187.    If S>0 and S<>80 Then ME=2
  188.    If S=80 Then ME=1
  189.    If BB$="Q" Then ME=3
  190.    If BB$=" " Then ME=4
  191. Until ME=1 or ME=3 or ME=4
  192. If ME=3 Then End 
  193. If ME=1 Then GUIDE
  194. End Proc
  195. Procedure SCR_2
  196. Screen Open 0,320,200,16,Lowres
  197. Palette $0,$0,$FFF,$0,$F00,$F0,$FF0,$F,$FF0,$F,$F0,$0,$0,$0,$0,$0
  198. Paper 7 : Cls 7
  199. Set Font BIG_FNT
  200. Set Text BOLD
  201. Ink 2,7
  202. Box 0,0 To 319,199
  203. Ink 4
  204. Text 10,25,"HENRIETTA's BOOK of SPELLS"
  205. Ink 5
  206. Set Font WEE_FNT2
  207. Text 9,45,"is published by . . ."
  208. Set Font BIG_FNT
  209. Ink 2
  210. Text 9,75,"Scetlander Ltd"
  211. Text 9,100,"74 Victoria Crescent Road"
  212. Text 9,125,"Glasgow G12 9JN"
  213. Text 9,150,"Tel: 041-357 1659"
  214. Text 9,175,"Fax: 041-357 5034"
  215. Ink 5
  216. Set Font WEE_FNT2
  217. Text 40,192,"Press <Space> to continue"
  218. Clear Key : Wait Key 
  219. End Proc
  220. Procedure SLSCR
  221. Flash Off : Cls 0
  222. Load Iff "data/slscr.iff"
  223. X=0
  224. Repeat 
  225.   Wait 2
  226.   X$=Inkey$
  227.   X=X+1
  228. Until(X>100) or(X$<>"")
  229. End Proc
  230. Procedure LDSCR
  231. Flash Off : Cls 0
  232. Load Iff "data/ldwitch.iff"
  233. Curs Off 
  234. Bob 1,42,48,4
  235. For A=0 To 2
  236.    For I=1 To 5
  237.       Volume 3,63
  238.       Play 3,40,1
  239.       Bob 1,42,48,4+(I/3)
  240.       Volume 3,0
  241.       If Inkey$<>"" Then Goto ESCAPE
  242.       Wait 3
  243.    Next I
  244.    Wait 10
  245.    For I=1 To 5
  246.       Volume 3,63
  247.       Play 3,40,1
  248.       Bob 1,42,48,4+(I/3)
  249.       Volume 3,0
  250.       If Inkey$<>"" Then Goto ESCAPE
  251.       Wait 3
  252.    Next I
  253.    Wait 20
  254. Next A
  255. Bob Off 
  256. Amal Off 
  257. Bob 1,42,48,4
  258. K$=Inkey$
  259. K=Scancode
  260. If(K$="")
  261.    For X=0 To 1
  262.       LOONY_TUNE
  263.       K$=Param$
  264.       If K$=" "
  265.          Goto ESCAPE
  266.       Else 
  267.          Next X
  268.    End If 
  269. End If 
  270. ESCAPE:
  271. Clear Key 
  272. Curs Off 
  273. Pen 15 : Paper 0 : Locate 4,24 : Print "  Loading Program - Please Wait   ";
  274. On Error Goto LD_PRG
  275. Run "game.amos"
  276. LD_PRG:
  277. Curs Off : Locate 0,24 : Print "Can't find program [";Errn;"] - press a key"; : Clear Key : Wait Key 
  278. End 
  279. End Proc
  280. Procedure LOONY_TUNE
  281.    Volume 63
  282.    Set Envel 1,0 To 1,63
  283.    Set Envel 1,1 To 10,51
  284.    Set Envel 1,2 To 70,51
  285.    Set Envel 1,3 To 120,0
  286.    T#=35
  287.    Restore TUNE1_NOTES
  288.    Goto TUNE1_PLAY
  289.    Goto EXYT
  290.    TUNE1_PLAY:
  291.    Do 
  292.       Read P,D#
  293.       Exit If P=-1 or D#=-1
  294.       I=(1/D#)*T#
  295.       Play P,I
  296.       Wait I
  297.       K$=Inkey$
  298.       Exit If(K$<>"")
  299.    Loop 
  300.    K$=" "
  301.    Goto EXYT
  302.    TUNE1_NOTES:
  303.    Data 39,4,44,8,47,4,39,4,44,8,47,4,44,4,49,8,52,4
  304.    Data 44,4,49,8,52,4,39,4,43,8,49,4,39,4,43,8,49,4
  305.    Data 40,4,39,8,49,8,47,8,44,4,-1,-1
  306.    EXYT:
  307.    Set Envel 1,2 To 1,0
  308.    Set Envel 1,3 To 1,0
  309. End Proc[K$]